home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / text / edit / ped_svenska.lha / ped_svenska / install next >
Text File  |  1995-06-20  |  1KB  |  57 lines
  1. ; $VER: Catalog-Install 1.0 (19-6-1995)
  2. ; Script to install PolyEd Catalogs/Docs for different languages
  3.  
  4. ; To adopt this script to different languages do this:
  5. ;
  6. ;     ·      Translate the strings in the strings-section below to the desired language
  7. ;    ·   Change the APPNAME Tooltype of the icon
  8. ;
  9.  
  10. (complete 0)
  11.  
  12. ;=============================================================================
  13. ; strings --- Change/Translate to the language to be installed!
  14. ;              This example is for swedish. You should translate the complete
  15. ;              text, but as I don't speak swedish, it's in english :)
  16.  
  17. (set #language "svenska" )
  18.  
  19. (set #no-polyed
  20. (cat "PolyEd är inte installerad! \n"
  21.      "Du måste installera PolyEd innan du kan "
  22.      "installera ytterligare språk."
  23. ))
  24.  
  25. (set #done-text
  26. (cat "PolyEd kommer att köras på svenska från och med nu. "
  27. ))
  28.  
  29. ;=============================================================================
  30. ; make sure PolyEd is out there
  31.  
  32. (if (<> (exists "PED:" (noreq)) 2)
  33. (
  34.     (abort #no-polyed)
  35. ))
  36.  
  37. (set @default-dest "PED:")
  38.  
  39. ;=============================================================================
  40. ; install catalog and documentation
  41.  
  42. (copylib (source "polyed.catalog")
  43.          (dest (tackon "PED:Catalogs" #language))
  44.          (infos)
  45.          (noposition)
  46. )
  47. (complete 50)
  48.  
  49. (copylib (source (cat #language ".guide"))
  50.          (dest "PED:Doc")
  51.          (infos)
  52.          (noposition)
  53. )
  54. (complete 100)
  55.  
  56. (exit #done-text)
  57.